home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / SWAG9605.DDD / 0063_Is the MOUSE driver loaded?.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-31  |  530 b   |  21 lines
  1. {I need a code snippet that will test to determine whether a mouse driver
  2. is loaded. }
  3.  
  4.  
  5. FUNCTION DriverInstalled : boolean; {this checks for a mouse driver!}
  6. CONST
  7.   iret = 207;
  8. VAR
  9.   driverOff, driverSeg : Integer;
  10. Begin
  11.   driverOff := MemW[0000:0204];
  12.   driverSeg := MemW[0000:0206];
  13.   IF ((driverSeg <> 0) and (driverOff <> 0)) THEN
  14.     Begin
  15.       IF (Mem [driverSeg:driverOff] <> iret) THEN DriverInstalled := true
  16.        ELSE DriverInstalled := false
  17.     End
  18.        ELSE DriverInstalled := false
  19. End;
  20.  
  21.